home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / misc / hf_sd28.lha / SnatchDIZ / GenListFile next >
Text File  |  1996-08-30  |  430b  |  24 lines
  1. .k DIR/A,FILE/A,EXEPATH
  2. .def <EXEPATH> "C:"
  3.  
  4. failat 20
  5.  
  6. C:cd >NIL: <DIR>
  7. resident "<EXEPATH>SnatchDIZ" FORCE
  8.  
  9. IF WARN
  10.  C:Echo "*nBe sure to set EXEPATH to the path of SnatchDIZ if it aint in C:."
  11.  C:Echo "It must end with : or / ..."
  12.  QUIT
  13. ENDIF
  14.  
  15. C:Echo "*nCreating listfile of <DIR> ... " NOLINE
  16. S:SPat "SnatchDIZ >NIL:" #? LF T:LF.TMP S
  17.  
  18. C:Copy T:LF.TMP <FILE>
  19. C:Delete >NIL: T:LF.TMP
  20.  
  21. C:Echo "done!"
  22.  
  23. resident SnatchDIZ remove
  24.